<%@ Language=VBScript%>
<%
	Session("FormName")="F42"
%>
<!--#include file=..\checkSession.inc-->
<!--#include file=..\getFormName.inc-->
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title></title>
</head>
<!--#include file=..\jvGrid.inc-->
<!--#include file="..\pageSelected.inc"-->
<%		
	Set ClsFun=server.CreateObject("Vinalines.ClsFunction")
	CheckAdd=request.form("CheckAdd")

	Dim bLink 
	bComm=Request("bComm")
	bID=Request("bID")
	if bComm="detail" then		
		sSQL="Select * from Loai_VB_den where ID="& bID 
		Set RecDL=server.CreateObject("ADODB.Recordset")
		RecDL.CursorType=3
		RecDL.CacheSize=5
		RecDL.Open sSQL,Conn
		if RecDL.RecordCount then
			bMaso=RecDL("Maso")
			bMasocu=RecDL("Maso")
			bNgay=RecDL("TSNXL")
			bTinhchatVB=trim(RecDL("TinhchatVB"))
			Loaitim=Request("Loaitim")
			bsearch=Request("bsearch")
		end if
		RecDL.Close
		set RecDL=nothing
	else
		bMaso=Request("bMaso")
		bMasocu=Request("bMasocu")
		bNgay=Request("bNgay")
		bTinhchatVB=Request("bTinhchatVB")
		Loaitim=request("Loaitim")
		bsearch=request("bsearch")
	end if
	Dim bTempComm
	Dim bMsg
	Dim Msg	
	if Session("ClsFun").LayGiaTriQuyen(Session("Permision"),Session("FormName"),2)="1" or Session("IsAdmin") then
		Select Case bComm
			Case "add"
				if not KTMa(bMaso,bComm) then
					if bNgay="" then bNgay="Null" end if
						sSQL="Insert into Loai_VB_den(Maso,TinhchatVB,TSNXL)values('"& trim(ClsFun.ModiString(bMaso)) &"','" &_
						trim(ClsFun.ModiString(bTinhchatVB)) &"'," &_
						trim(ClsFun.ModiString(bNgay)) &")"
						Conn.Execute sSQL
				else
					Msg="Mã số đã tồn tại"
					bMsg="ma"
				end if
			case "delete"
				set RecVT=server.CreateObject("ADODB.Recordset")
				RecVT.CursorType=3
				RecVT.CacheSize=5
				sSQL="Select * from VTDEN where MasoTC ='"& bMaso &"'"
				RecVT.Open sSQL,Conn
				if RecVT.RecordCount<=0 then
					set RecHXL=server.CreateObject("ADODB.Recordset")
					RecHXL.CursorType=3
					RecHXL.CacheSize=5
					sSQL="select * from Hanxuly_CVden where MasoTC ='"& bMaso &"'"
					RecHXL.Open sSQL,Conn
					if RecHXL.RecordCount<=0 then
						sSQL="Delete from Loai_VB_den Where ID ="& bID
						Conn.Execute sSQL	
					else
						Msg="Hạn xử lý đang sử dụng, không xóa được"	
					end if
					RecHXL.close
					Set RecHXL=nothing
				else
					Msg="Văn bản đến đang sử dụng, không xóa được"
				end if
				RecVT.close
				Set RecVT=nothing
			case "edit"
				if not KTMa(bMaso,"edit") then
					on error resume next
					Conn.BeginTrans	
					if bNgay="" then bNgay="Null" end if
					sSQL="Update Loai_VB_den set Maso='"& ClsFun.ModiString(bMaso) _
					&"',TinhchatVB='"& ClsFun.ModiString(bTinhchatVB) _
					&"',TSNXL="& ClsFun.ModiString(bNgay) _
					&" Where ID =" & bID
					Conn.Execute sSQL

					if Err.number then
						Conn.RollbackTrans
					else
						Conn.CommitTrans
					end if
					Err.Clear
				else
					Msg="Mã số đã tồn tại"
					bMsg="ma"
				end if
		End Select
	End if
	Set Rec=server.CreateObject("ADODB.Recordset") 
	rec.CursorType = 3
	rec.CacheSize=5	
	select case request("bComm")
		case "search"
			ssql="Select * from Loai_VB_den where TinhchatVB like '%"& ClsFun.ModiString(bsearch) & "%' order by Maso"
		case else
			Loaitim=""
			bsearch=""
			ssql="Select * from Loai_VB_den order by Maso"
	end select
	Dim nRecCount	' Number of records found
	Dim nPageCount	' Number of pages of records we have
	Dim nPage	' Current page number
	nPage=CLng(request("Page"))	
	if nPage="" then nPage=1
	rec.Open ssql,Conn
	if  rec.EOF and rec.BOF then
		nPageCount=0
	end if	
%>
<%if Msg<>"" then%>
  <% if bMsg="ma" then %>
		<center><font size=2 color=red face=Arial>Mã số: <%=bMaso%> &#273;&#227; t&#7891;n t&#7841;i</font></center>
   <%end if%>
   <% if bMsg="" then %>
			<center><font size=2 color=red face=Arial><%=Msg%></font></center>
   <%end if%>
<%end if%>
<!--#include file="..\jvfunction.inc"-->
<script language=VBScript runat=server>
	Function KTMa(bValue,loai)
		KTMa=false
		if loai="add" then
			ssql="Select * from Loai_VB_den where Maso like '"& trim(ClsFun.ModiString(bValue)) &"'"
			Set RecTemp=server.CreateObject("ADODB.Recordset") 
			RecTemp.Open ssql,Conn
			if (not Rectemp.BOF) and (not RecTemp.EOF) then
				KTMa=True
			end if
			set RecTemp=nothing
		end if
		if loai="edit" then
			if Lcase(bMasocu)<>Lcase(bValue) then
				ssql="Select * from Loai_VB_den where Maso like '"& trim(ClsFun.ModiString(bValue)) &"'"
				Set RecTemp=server.CreateObject("ADODB.Recordset") 
				RecTemp.Open ssql,Conn
				if (not Rectemp.BOF) and (not RecTemp.EOF) then
					KTMa=True
				end if
				set RecTemp=nothing
			end if		
		end if
	End function
Function Paging(ByVal intPage, ByVal intPageCount, ByVal intRecordCount)
	Dim strQueryString
	Dim strScript
	Dim intStart
	Dim intEnd
	Dim strRet
	Dim i

	If intPage > intPageCount Then
		intPage = intPageCount
	ElseIf intPage < 1 Then 
		intPage = 1
	End If
	
	If intRecordCount = 0 Then
		'strRet = "No Records Found"
	ElseIf intPageCount = 1 Then
		'strRet = "End Of Hits"
	Else
		For i = 1 To Request.QueryString.Count
			If LCase(Request.QueryString.Key(i)) <> "page" Then
				strQueryString = strQueryString & "&" 
				strQueryString = strQueryString & Server.URLEncode(Request.QueryString.Key(i)) & "=" 
				strQueryString = strQueryString & Server.URLEncode(Request.QueryString.Item(i))
			End If
		Next

		For i = 1 To Request.Form.Count
			If LCase(Request.Form.Key(i)) <> "page" Then
				strQueryString = strQueryString & "&" 
				strQueryString = strQueryString & Server.URLEncode(Request.Form.Key(i)) & "=" 
				strQueryString = strQueryString & Server.URLEncode(Request.Form.Item(i))
			End If
		Next

		If Len(strQueryString) <> 0 Then
			strQueryString = "?" & Mid(strQueryString, 2) & "&"
		Else
			strQueryString = "?"
		End If

		strScript = Request.ServerVariables("SCRIPT_NAME") & strQueryString
	
		If intPage <= 10 Then
			intStart = 1
		Else
			If (intPage Mod 10) = 0 Then
				intStart = intPage - 9
			Else
				intStart = intPage - (intPage Mod 10) + 1
			End If
		End If

		intEnd = intStart + 9
		If intEnd > intPageCount Then intEnd = intPageCount
	
		'strRet = "Page " & intPage & " of " & intPageCount & ": "
	
		If intPage > 10 Then 
			strRet = strRet & "<a href=""" & strScript
			strRet = strRet & "page=" & intPage - 10 
			strRet = strRet & """><IMG border=0 SRC=../images/prev.gif></a> "
		End If
	
		For i = intStart To intEnd
			If i = intPage Then
				strRet = strRet & "<b><font color=A90A08>" & i & "</font></b> "
			Else
				strRet = strRet & "<a href=""" & strScript
				strRet = strRet & "page=" & i 
				strRet = strRet & """>" & i & "</a>"
				If i <> intEnd Then strRet = strRet & " "
			End If
		Next
	
		If intPage <> intPageCount and intPageCount > 10 Then
			strRet = strRet & " <a href=""" & strScript
			strRet = strRet & "page=" & intPage + 10 
			strRet = strRet & """><IMG border=0 SRC=../images/next.gif></a> "
		End If
	End If
	
	Paging = strRet
End Function
</script>

<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function ChangePage(){
	strURL=nhom.page.value;
	window.nhom.target="right";
	window.nhom.action=strURL;
	window.nhom.submit();
}

function  SetFocus(){
	if (!nhom.TxtMaso.disabled){
		document.nhom.TxtMaso.focus();
	}else{
		document.nhom.CmdSearch.focus();
	}
}

function KTnhap(){
	if (nhom.TxtMaso.value==""){
		alert("Bạn cần phải mã số");
		nhom.TxtMaso.focus();
		return false;
	}
	if (nhom.TxtTinhchatVB.value==""){
		alert("Bạn cần phải nhập tính chất của CV");
		nhom.TxtTinhchatVB.focus();
		return false;
	}
	return true;
}
function CmdAdd_onclick() {
	nhom.TxtMaso.value="";
	nhom.TxtNgay.value="";
	nhom.TxtTinhchatVB.value="";
	nhom.CheckAdd.disabled=false;
	nhom.CheckAdd.checked=true;
	cmdenable(false);
	Unlockdata();
	nhom.TxtMaso.focus();
	nhom.sua.value="2";
}
function cmdenable(bvalue){
	if (bvalue){
		if ("<%= Session("ClsFun").LayGiaTriQuyen(Session("Permision"),Session("FormName"),2)%>"=='1'||"<%= Session("IsAdmin") %>".toLowerCase()=='true'){
			nhom.CmdAdd.disabled= false;
		}			
		else{
			nhom.CmdAdd.disabled= true;		
		}
		nhom.CmdDelete.disabled= false;
		nhom.CmdEdit.disabled= false;
		nhom.CmdCancel.disabled= true;
		nhom.CmdOK.disabled= true;	
		nhom.CmdSearch.disabled=false;
	}
	else {
		nhom.CmdAdd.disabled= true;
		nhom.CmdDelete.disabled= true;
		nhom.CmdEdit.disabled= true;
		nhom.CmdCancel.disabled= false;
		nhom.CmdOK.disabled= false;
		nhom.CmdSearch.disabled=true;
	}	
}

function CmdCancel_onclick() {
	cmdenable(true);
	nhom.CmdDelete.disabled= true;
	nhom.CmdEdit.disabled= true;

	nhom.CheckAdd.checked=false;
	nhom.CheckAdd.disabled=true;

	nhom.CmdSearch.value="Tì<u>m</u> kiếm";
	Lockdata();
	nhom.TxtMaso.value="";
	nhom.TxtNgay.value="";
	nhom.TxtTinhchatVB.value="";
}

function Lockdata(){
	nhom.TxtMaso.disabled=true;
	nhom.TxtNgay.disabled=true;
	nhom.TxtTinhchatVB.disabled=true;
}
function Unlockdata(){
	nhom.TxtMaso.disabled=false;
	nhom.TxtNgay.disabled=false;
	nhom.TxtTinhchatVB.disabled=false;
}

function CmdDelete_onclick() {
	if(!confirm("Bạn có muốn xoá không ?")){
		return false;	
	}
	bID=nhom.bID.value;
	window.nhom.target="right";
	window.nhom.action ="frmLoaiVBDen.asp?Page="+"<%=npage%>"+"&bID="+bID+ "&bMaso="+"<%=bMaso%>"+"&bComm=delete";
	window.nhom.submit();
}
function CmdEdit_onclick() {
	cmdenable(false);
	Unlockdata();
	nhom.TxtMaso.focus();
	<%bTempComm="edit"%>
	nhom.sua.value="1";
	nhom.Masocu.value=nhom.TxtMaso.value;
}
function CmdOK_onclick() {
	if (KTnhap()){
		cmdenable(true);
		Lockdata();
		bMaso=nhom.TxtMaso.value;
		bNgay=nhom.TxtNgay.value;
		bTinhchatVB=nhom.TxtTinhchatVB.value;
		bMasocu=nhom.Masocu.value;
		bID=nhom.bID.value;
		bc=nhom.sua.value
		cp=nhom.cPage.value
		if (bc=="1"){
			b="frmLoaiVBDen.asp?Page="+cp+"&bMasocu="+bMasocu+"&bMaso="+bMaso+"&bID="+bID+"&bNgay="+bNgay+"&bTinhchatVB="+bTinhchatVB+"&bComm=edit"		
		}
		
		else {
			b="frmLoaiVBDen.asp?Page="+cp+"&bMaso="+bMaso+"&bNgay="+bNgay+"&bTinhchatVB="+bTinhchatVB+"&bComm=add"					
		}
		window.nhom.target="right"
		window.nhom.action=b;
		window.nhom.submit();
	}
}

function CmdSearch_onclick() {
	nhom.CmdAdd.disabled=true;
	nhom.CmdCancel.disabled=false;
	nhom.CmdEdit.disabled=true;
	nhom.CmdDelete.disabled=true;
	if (nhom.TxtTinhchatVB.disabled){
		nhom.CmdSearch.value="Tì<u>m</u>";
		nhom.TxtMaso.value="";
		nhom.TxtNgay.value="";
		nhom.TxtTinhchatVB.value="";
		Lockdata()
		nhom.TxtTinhchatVB.disabled=false;
		nhom.TxtTinhchatVB.focus();
		return false;
	}
	value=nhom.TxtTinhchatVB.value;
	blink="frmLoaiVBDen.asp?bsearch="+value+"&bComm=search";
	window.nhom.action=blink;
	window.nhom.target="right"
	window.nhom.submit();	
}


//-->
</SCRIPT>
<LINK href="../styles/styles.css" type=text/css rel=STYLESHEET>
<body  topmargin="0" leftmargin="0" bgcolor=#F8F9D9 style="Font-Family: Times New Roman" onload="SetFocus()">
<form name="nhom" method="POST">
	<input type="hidden" name="sua" value="">
	<input type="hidden" name="Masocu" value="">
	<input type="hidden" name="bID" value="<%=bID%>">
	<input type="hidden" name="cPage" value="<%=nPage%>">
<p align=center><b><font FACE="Times New Roman" size="3">CẬP NHẬT DANH MỤC TÍNH CHẤT CÔNG VĂN ĐẾN</font></b>
<% if CheckAdd="ON" then %>
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="font-family:arial;BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-STYLE: solid; BORDER-TOP-STYLE: solid;border-collapse:collapse; border-left-color:#C0C0C0; border-right-color:#C0C0C0; border-top-color:#C0C0C0; border-bottom-color:#C0C0C0"  bgcolor="#BDD5D0" bordercolor="#111111">
  <tr>
	<td width="17%"><Button disabled name="CmdAdd" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdAdd_onclick()" accesskey="T"><u>T</u>hêm</Button></td>
	<td width="17%"><Button disabled name="CmdDelete" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdDelete_onclick()" accesskey="X"><u>X</u>óa</Button></td>
    <td width="17%"><Button disabled name="CmdEdit" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdEdit_onclick()" accesskey="S"><u>S</u>ửa</Button></td>
	<td width="17%"><Button name="CmdOK" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdOK_onclick()" accesskey="G" tabindex=4><P><u>G</u>hi nhận</P></Button></td>
    <td width="16%"><Button name="CmdCancel" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdCancel_onclick()" accesskey="B"><P><u>B</u>ỏ qua</P></Button></td>
    <td width="16%"><Button disabled  name="CmdSearch" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdSearch_onclick()" accesskey="M"><p>Tì<u>m</u> kiếm</p></Button></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" style="Font-family:Times New Roman;font-size:12pt;BORDER-BOTTOM-STYLE: solid; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-STYLE: solid; BORDER-TOP-STYLE: none;border-collapse:collapse; border-left-color:#C0C0C0; border-right-color:#C0C0C0; border-top-color:#C0C0C0; border-bottom-color:#C0C0C0" bordercolor="#111111" bgcolor="#BDD5D0">
 <tr>
    <td width="15%" nowrap>&nbsp;Mã số</td>
    <td width="25%"><input type="text" name="TxtMaso" size="15" maxLength=10 style="FONT-FAMILY: Arial;width:100%" tabindex=1></td>
	<td width="22%" nowrap align=center>Tổng số ngày xử lý</td>
    <td width="38%" colspan=2><input type="text" name="TxtNgay" size="15" maxLength=4 style="FONT-FAMILY: Arial;width:100%" tabindex=2></td>
  </tr>
  <tr>
  	<td width="15%" nowrap>&nbsp;Tính chất CV</td>
    <td width="67%" colspan=3><input type="text" name="TxtTinhchatVB" size="50" maxLength=500 style="FONT-FAMILY: Arial;width:100%" tabindex=3></td>
	<td width="18%" align=center nowrap><label for=C1 accesskey="h">T<u>h</u>êm liên tục </label><input type=checkbox name="CheckAdd" value="ON" checked id=C1></td>
  </tr>
</table>

<%else%>		<!-- if CheckAdd<>"ON"-->
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="font-family:arial;BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-STYLE: solid; BORDER-TOP-STYLE: solid;border-collapse:collapse; border-left-color:#C0C0C0; border-right-color:#C0C0C0; border-top-color:#C0C0C0; border-bottom-color:#C0C0C0"  bgcolor="#BDD5D0" bordercolor="#111111">
  <tr>
  <% if Session("ClsFun").LayGiaTriQuyen(Session("Permision"),Session("FormName"),2)="1" or Session("IsAdmin") then	%>
		<td width="17%"><Button name="CmdAdd" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdAdd_onclick()" accesskey="T"><u>T</u>hêm</Button></td>
		<%if  bcomm<>"detail" then%>
			<td width="17%"><Button disabled name="CmdDelete" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdDelete_onclick()" accesskey="X"><u>X</u>óa</Button></td>
			<td width="17%"><Button disabled name="CmdEdit" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdEdit_onclick()" accesskey="S"><u>S</u>ửa</Button></td>
		<%else%>  
			<td width="17%"><Button name="CmdDelete" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdDelete_onclick()" accesskey="X"><u>X</u>óa</Button></td>
			<td width="17%"><Button name="CmdEdit" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdEdit_onclick()" accesskey="S"><u>S</u>ửa</Button></td>
		<%end if%>
		<td width="17%"><Button disabled name="CmdOK" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdOK_onclick()" accesskey="G" tabindex=4><p><u>G</u>hi nhận</p></Button></td>
		<td width="16%"><Button disabled name="CmdCancel" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdCancel_onclick()" accesskey="B"><p><u>B</u>ỏ qua</p></Button></td>
		<td width="16%"><Button name="CmdSearch" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdSearch_onclick()" accesskey="M"><p>Tì<u>m</u> kiếm</p></Button></td>
	<%else%>
		<td width="17%"><Button disabled  name="CmdAdd" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdAdd_onclick()" accesskey="T"><u>T</u>hêm</Button></td>
		<td width="17%"><Button disabled name="CmdDelete" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdDelete_onclick()" accesskey="X"><u>X</u>óa</Button></td>
		<td width="17%"><Button disabled name="CmdEdit" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdEdit_onclick()" accesskey="S"><u>S</u>ửa</Button></td>
		<td width="17%"><Button disabled  name="CmdOK" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdOK_onclick()" accesskey="G" tabindex=4><p><u>G</u>hi nhận</p></Button></td>
		<td width="16%"><Button disabled  name="CmdCancel" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdCancel_onclick()" accesskey="B"><p><u>B</u>ỏ qua</p></Button></td>
		<td width="16%"><Button name="CmdSearch" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdSearch_onclick()" accesskey="M"><p>Tì<u>m</u> kiếm</p></Button></td>
    <%end if%>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" style="Font-family:Times New Roman;font-size:12pt;BORDER-BOTTOM-STYLE: solid; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-STYLE: solid; BORDER-TOP-STYLE: none;border-collapse:collapse; border-left-color:#C0C0C0; border-right-color:#C0C0C0; border-top-color:#C0C0C0; border-bottom-color:#C0C0C0" bordercolor="#111111" bgcolor="#BDD5D0">
  <% if bcomm="detail" then %>
	  <tr>
		<td width="15%" nowrap>&nbsp;Mã số</td>
		<td width="25%"><input type="text" name="TxtMaso" disabled value="<%=bMaso%>" size="15" maxLength=10 style="FONT-FAMILY: Arial;width:100%" tabindex=1></td>
		
    <td width="22%" nowrap align=center>Tổng số ngày xử lý</td>
		<td width="38%" colspan=2><input type="text" name="TxtNgay" disabled value="<%=bNgay%>" size="15" maxLength=4 style="FONT-FAMILY: Arial;width:100%" tabindex=2></td>
	  </tr>
	  <tr>
		<td width="15%" nowrap>&nbsp;Tính chất CV</td>
		<td width="67%" colspan=3><input type="text" name="TxtTinhchatVB" disabled=true value="<%=bTinhchatVB%>" size="50" maxLength=500 style="FONT-FAMILY: Arial;width:100%" tabindex=3></td>
		<td width="18%" align=center nowrap><label for=C1 accesskey="h">T<u>h</u>êm liên tục </label><input type=checkbox name="CheckAdd" value="ON" disabled id=C1></td>
	  </tr>
	<%else%>
	<tr>
		<td width="15%" nowrap>&nbsp;Mã số</td>
		<td width="25%"><input type="text" name="TxtMaso" disabled size="15" maxLength=10 style="FONT-FAMILY: Arial;width:100%" tabindex=1></td>
		
    <td width="22%" nowrap align=center>Tổng số ngày xử lý</td>
		<td width="38%" colspan=2><input type="text" name="TxtNgay" disabled size="15" maxLength=4 style="FONT-FAMILY: Arial;width:100%" tabindex=2></td>
	 </tr>
	  <tr>
		<td width="15%" nowrap>&nbsp;Tính chất CV</td>
		<td  width="67%" colspan=3><input type="text" name="TxtTinhchatVB" disabled size="50" maxLength=500 style="FONT-FAMILY: Arial;width:100%" tabindex=3></td>
		<td width="18%" align=center nowrap><label for=C1 accesskey="h">T<u>h</u>êm liên tục </label><input type=checkbox name="CheckAdd" value="ON" disabled id=C1></td>
	  </tr>
	<%end if%>
</table>
<%end if%>		<!-- end if CheckAdd="ON" -->
<table border="0" style="Font-family:Times New Roman;font-size:12pt;BORDER-BOTTOM-STYLE: solid; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-STYLE: solid; BORDER-TOP-STYLE: none;Border-color:#C0C0C0" WIDTH="100%" cellspacing=1 cellpadding=1>
  <tr>
    <td width="100%" colspan="3" bgcolor="#173584" align="center"><b><font color="#FFFFFF" size="2">DANH 
      MỤC TÍNH CHẤT CÔNG VĂN ĐẾN</font></b></td>
  </tr>
  <tr bgcolor="#BDD5D0" align="center">
    <td width="12%"><b>Mã số</b></td>
    <td width="70%"><b>Tính chất của công văn</b></td>
    <td width="18%"><b>Tổng số NXL</b></td>
  </tr>
  <%	
	If Not Rec.Eof Then
		nRecCount = Rec.RecordCount
		Rec.PageSize = 20
		nPageCount = Rec.PageCount
		If nPage < 1 then
			nPage = 1			
		End If
		if nPage > nPageCount Then
			nPage=nPageCount
		end if
		cnt=(pg-1)*pgsize + 1		    
		STT=1
		rec.AbsolutePage=nPage
		howmanyrecs=0
		do while not Rec.EOF and howmanyrecs<rec.PageSize
			if (cnt/2=int(cnt/2)) then
				color="#eeeecc"
			else
				color="#F8F9D9"
			end if
%>
			<tr id=mnu_<%=STT%> style="BORDER-RIGHT: #e7e7e7 1px solid; BORDER-TOP: #e7e7e7 1px solid; BORDER-LEFT: #e7e7e7 1px solid; COLOR: #666666; BORDER-BOTTOM: #e7e7e7 1px solid; HEIGHT: 21px; BACKGROUND-COLOR: <%=color%>" onmouseover="javascript:MouseOverMenu('mnu_<%=STT%>')" onmouseout="javascript:MouseOutMenu('mnu_<%=STT%>','<%=color%>')">
			  <td width="12%" align=center><a onmouseout="window.status='';return true" onmouseover="window.status='Ch&#7885;n th&#244;ng tin';return true" style='color:blue;text-decoration: none' href="frmLoaiVBDen.asp?page=<%=nPage%>&bID=<%=Rec("ID")%>&bComm=<%="detail"%>"><%=Rec("Maso")%></a></td>
			  <td width="70%"><a onmouseout="window.status='';return true" onmouseover="window.status='Ch&#7885;n th&#244;ng tin';return true" style='color:blue;text-decoration: none' href="frmLoaiVBDen.asp?page=<%=nPage%>&bID=<%=Rec("ID")%>&bComm=<%="detail"%>"><%=Rec("TinhchatVB")%></a></td>
  			  <td width="18%" align=center><a onmouseout="window.status='';return true" onmouseover="window.status='Ch&#7885;n th&#244;ng tin';return true" style='color:blue;text-decoration: none' href="frmLoaiVBDen.asp?page=<%=nPage%>&bID=<%=Rec("ID")%>&bComm=<%="detail"%>"><%if Rec("TSNXL")>0 then response.write (Rec("TSNXL"))%></a></td>
			</tr>
<%			STT=STT+1
			Rec.MoveNext
			cnt=cnt+1
			howmanyrecs=howmanyrecs+1
		loop
	end if
	rec.Close
	set rec=nothing
	
%>  
</table>
 <!-- Phan trang -->
<br>
<table width="98%" cellspacing=0 cellpadding=0>
<tr>
<% if nPage > 0 and nPageCount >0  then %>  
	<td width="20%"><b>Trang&nbsp; <%=nPage%>/<%=nPageCount%></b></td>
<!-- 	<td width= "80%" align="right">
	<% if nPageCount > 1 then %>    
		Chuyển nhanh tới trang:&nbsp;
		<select name="page" style="width:45;height:23;font-size:8pt" size=1 onchange="javaScript:ChangePage()">
			<% for i = 1 to nPageCount%>	
				<% if bComm<>"search"  then
					strURL="frmLoaiVBDen.asp?bsearch="& bsearch &"&Loaitim="& loaitim &"&page="+ cstr(i) + "&bComm="
				else
					strURL="frmLoaiVBDen.asp?bsearch="& bsearch &"&Loaitim="& loaitim &"&page="+ cstr(i) + "&bComm=search"
				end if %>
				<option value="<%=strURL%>" <%=chkSelected(i, nPage)%>><%=i%></option>
			<% next %>
		</select>
		</td>
	<% end if %> -->
<% 'else %>
<% end if %>
<td width= "80%" align="center"><%=Paging(nPage, nPageCount, nRecCount)%></td>
</tr>
</table>
</body>
</form>
</html>

<%
	Conn.Close
	Set Conn=nothing
	set ClsFun=nothing
%>